home *** CD-ROM | disk | FTP | other *** search
/ Exploring Where & Why / Exploring Where & Why.iso / pc / Lib.cst / 00111_DrawPalette.ls < prev    next >
Encoding:
Text File  |  2004-07-11  |  2.6 KB  |  105 lines
  1. --
  2. -- Drawing palette tools for the standard paint
  3. --
  4.  
  5. -- this is tied to the score in the nystrom UI setup
  6.  
  7. property ancestor
  8. property paletteList
  9. property paletteSprites
  10. property currentColor
  11. property canvasName
  12. property canvasSprite
  13.  
  14.  
  15. on new me
  16.   -- initialize constants:
  17.   -- this is the hardcoded Nystrom palette
  18.   set paletteList = [255,0,5,35,237,248,230,226,156,24,224,23,15,250]
  19.   set paletteSprites = []
  20.   
  21.   set currentColor = 255
  22.   
  23.   set ancestor = new (script "DrawTools")
  24.   
  25.   set paletteSprites = findColoredSprites(me, 3, 1)
  26.   
  27.   if paletteSprites = [] then
  28.     alert "The palette sprites are not colored correctly in the score, they should be #3, blue..."
  29.     return 0
  30.   end if
  31.   
  32.   set maxSprites = count(paletteSprites)
  33.   set maxColors = count(paletteList)
  34.   
  35.   repeat with x = 1 to maxSprites
  36.     if x > maxColors then
  37.       exit repeat
  38.     else
  39.       set the foreColor of sprite (getAt(paletteSprites, x)) = 255
  40.       set the backColor of sprite (getAt(paletteSprites, x)) = getAt(paletteList, x)
  41.       updateStage
  42.     end if
  43.   end repeat
  44.   
  45.   -- put "palettes: looking for the canvas..." & findColoredSprites(me, 1, 0)
  46.   
  47.   set canvasName = the name of member (the memberNum of sprite getAt(findColoredSprites(me, 1, 1), 1))
  48.   set canvasSprite = sprite getAt(findColoredSprites(me, 1, 1), 1)
  49.   
  50.   set the connectfreehandlines of member canvasName = 1
  51.   set the optimizedcompositedrawing of member canvasName = 1
  52.   set the optimizedfreehandlines of member canvasName = 1
  53.   set the fillcolorprotection of member canvasName = 1
  54.   set the autoredraw of member canvasName = 1
  55.   set the trapevents of member canvasName = 1
  56.   -- set the preloadcompositebuffer of member canvasName = 1
  57.   
  58.   
  59.   return me
  60. end
  61.  
  62. -- handle the mousedowns right here
  63. on mouseDownPalette me, spr
  64.   if paletteSprites = [] then return 0
  65.   
  66.   if getPos(paletteSprites, spr) > 0 then
  67.     -- we hit a palette sprite
  68.     
  69.     set currentColor = the backColor of sprite spr
  70.     
  71.     if (getCurrentTool (me) <> "eraser") then setPaletteColor (me, currentColor)
  72.     
  73.     -- now toggle the rest of the colors
  74.     colorRadioToggle(me, paletteSprites, spr, 2)
  75.     
  76.     return 1
  77.   else
  78.     return 0
  79.   end if
  80. end
  81.  
  82.  
  83. on mouseDownTools me, spr
  84.   set r = mouseDownTools (ancestor, spr)
  85.   if (getCurrentTool (me) <> "eraser") then setPaletteColor (me, currentColor)
  86.   return r
  87. end
  88.  
  89.  
  90. on setPaletteColor me, color  
  91.   -- now convert the index to a packedColor
  92.   set packedColor = IndexedToPackedColor(member canvasname, color)
  93.   
  94.   -- now assign the thing
  95.   SetForecolor(member canvasName, packedColor)
  96. end
  97.  
  98.  
  99. on destruct me
  100.   if objectP (ancestor) then destruct (ancestor)
  101.   set ancestor = 0
  102. end
  103.  
  104.  
  105.